

package TagServer::iModel;


#UML_MODELER_BEGIN_PERSONAL_VARS_iModel

#UML_MODELER_END_PERSONAL_VARS_iModel


=head1 IMODEL



=cut

=head1 ABSTRACT CLASS

=cut

=head1 PUBLIC METHODS

=head3 new

   Return : 
	The class instance      

   Description : 
      The constructor

=cut

sub new
{
  my $this = shift;
  my $class = ref($this) || $this; 
  my $self = {};
  bless ($self, $class); 
  return $self;
}

=head3 data

   Parameters :
      new_data : % : The hash of data to be saved in bd

   Return : 
      

   Description : 
      Abstract method to be implemented in realization class. Sets the data tuplet

=cut


sub data
{   
   my $self = shift;
   if (@_) { $self->{_data} = shift }
   warn "Metodo iModel->data\n";
   return $self->{_data};
}
 

=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
